OpenEdge Data Management:<br />DataServer for ORACLE Additional ProDataSet support

As demonstrated in Example 3–20, the LOAD-RESULT-INTO functionality provides a very fast and efficient way to populate the temp-table(s) of a ProDataSet Object.

Example 3–21 builds on the techniques demonstrated in Example 3–20, but shows the ProDataSet object BEFORE-FILL procedure can be modified to provide a single ProDataSet data access object that can be used against native OpenEdge or against ORACLE and other DataServer data sources.

DEFINE VARIABLE rid-1 AS ROWID. DEFINE VARIABLE rid-2 AS ROWID. DEFINE TEMP-TABLE ttCust LIKE Sports.Customer FIELD tRecid AS ROWID DEFINE VAR hSendSQL AS HANDLE EXTENT 1. hSendSQL[1]=TEMP-TABLE ttCust:HANDLE. DEFINE DATASET dsCust FOR ttCust. DEFINE VAR phDataSet AS HANDLE NO-UNDO. DEFINE QUERY qCust FOR Customer. phDataSet=DATASET dsCust:HANDLE. phDataSet:SET-CALLBACK-PROCEDURE (“BEFORE-FILL”, “preDataSetFill”, THIS-PROCEDURE). DEFINE DATA-SOURCE dsCust FOR QUERY qCust. BUFFER ttCust:HANDLE:ATTACH-DATA-SOURCE(DATA-SOURCE dsCust:HANDLE,?,?,?). DATASET dsCust:FILL(). FIND FIRST Customer WHERE Customer.custnum=1 NO-LOCK. rid-1=ROWID(customer). FIND FIRST Customer WHERE Customer.custnum=1 NO-LOCK. rid-2=ttCust.tRecid. IF rid-1 <> rid-2 THEN MESSAGE “The same record but different ROWID’s”. IF rid-1=rid-2 THEN MESSAGE “Congratulations - we have the same ROWID’s”. MESSAGE string(ttCust.Trecid) VIEW-AS ALERT-BOX.
PROCEDURE preDataSetFill: DEFINE INPUT PARAMETER DATASET FOR dsCust. DEFINE VAR handle1 AS INTEGER. DEF VAR hSendSQL AS HANDLE EXTENT 1. hSendSQL[1]=TEMP-TABLE ttCust:HANDLE. IF DBTYPE(NUM-DBS)<>”PROGRESS” THEN DO: DISPLAY “DataServer FILL using SEND-SQL”. BUFFER ttCust:handle:FILL-MODE=”NO-FILL”. RUN STORED-PROC send-sql-statement LOAD-RESULT-INTO hSendSQL (“select * from customer”). END. ELSE DO: /* normal OpenEddge FILL procedure / DISPLAY “Native Progress FILL”. QUERY qCust:QUERY-PREPARE(“for each customer”). END. END PROCEDURE. / preDataSetFill */

DEFINE VARIABLE rid-1 AS ROWID. 
DEFINE VARIABLE rid-2 AS ROWID. 
DEFINE TEMP-TABLE ttCust LIKE Sports.Customer 
       FIELD tRecid AS ROWID 
DEFINE VAR hSendSQL AS HANDLE EXTENT 1. 
hSendSQL[1]=TEMP-TABLE ttCust:HANDLE. 
DEFINE DATASET dsCust FOR ttCust. 
DEFINE VAR phDataSet AS HANDLE NO-UNDO. 
DEFINE QUERY qCust FOR Customer. 
phDataSet=DATASET dsCust:HANDLE. 
phDataSet:SET-CALLBACK-PROCEDURE (“BEFORE-FILL”, “preDataSetFill”, 
THIS-PROCEDURE). 
DEFINE DATA-SOURCE dsCust FOR QUERY qCust. 
BUFFER ttCust:HANDLE:ATTACH-DATA-SOURCE(DATA-SOURCE 
     dsCust:HANDLE,?,?,?). 
DATASET dsCust:FILL(). 
FIND FIRST Customer WHERE Customer.custnum=1 NO-LOCK. 
rid-1=ROWID(customer). 
FIND FIRST Customer WHERE Customer.custnum=1 NO-LOCK. 
rid-2=ttCust.tRecid. 
IF rid-1 <> rid-2 THEN MESSAGE “The same record but different ROWID’s”. 
IF rid-1=rid-2 THEN MESSAGE “Congratulations - we have the same ROWID’s”. 
MESSAGE string(ttCust.Trecid) VIEW-AS ALERT-BOX.

PROCEDURE preDataSetFill: 
DEFINE INPUT PARAMETER DATASET FOR dsCust. 
    DEFINE VAR handle1 AS INTEGER. 
    DEF VAR hSendSQL AS HANDLE EXTENT 1. 
hSendSQL[1]=TEMP-TABLE ttCust:HANDLE. 
IF DBTYPE(NUM-DBS)<>”PROGRESS” THEN DO: 
    DISPLAY “DataServer FILL using SEND-SQL”. 
    BUFFER ttCust:handle:FILL-MODE=”NO-FILL”. 
    RUN STORED-PROC send-sql-statement LOAD-RESULT-INTO hSendSQL 
             (“select * from customer”). 
   END. 
ELSE DO: /* normal OpenEddge FILL procedure */ 
   DISPLAY “Native Progress FILL”. 
   QUERY qCust:QUERY-PREPARE(“for each customer”).
END. 
END PROCEDURE. /* preDataSetFill */